﻿
Partial Class Site
    Inherits System.Web.UI.MasterPage

    Protected Sub NavigationMenu_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles NavigationMenu.MenuItemClick

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim usuario As String
        Try
            usuario = Session("dniSocio").ToString
        Catch ex As Exception
            Response.Redirect("loginOK.aspx")
        End Try

        If Session("tipousuario").ToString = "Admin" Then
            Me.NavigationMenu.Visible = False
        End If
    End Sub
End Class

